home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc2 / getvr400.lha / GetVer / Install < prev    next >
Text File  |  1996-02-03  |  8KB  |  297 lines
  1. ; $VER: GetVer Install 1, Copyright © 1995 by J. Schuchardt
  2.  
  3. (set #badkick
  4.     (cat
  5.         "\n\nGetVer only works with OS 2.04 or higher!\n\n"
  6.         "Installation aborted!\n"
  7.     )
  8. )
  9.  
  10. (set #introduction
  11.     (cat
  12.         "GetVer 4.00  Copyright © 1992-1995 by J. Schuchardt\n"
  13.         "_____\n\n"
  14.         "GetVer is SHAREWARE! If you still use it after a    \n"
  15.         "short period of testing, you have to register.      \n"
  16.         "For details please read the hints in the manual file\n"
  17.         "\"GetVer.guide\". With installing the software you    \n"
  18.         "agree with the conditions pointed out there.        \n"
  19.         "  Thank you.                                        \n"
  20.     )
  21. )
  22.  
  23. (set #icon_note
  24.     (cat
  25.         "GetVer 4.00  Copyright © 1992-1995 by J. Schuchardt\n"
  26.         "_____\n\n"
  27.         "Note:                                              \n"
  28.         "If you want to install one of the MagicWB icons    \n"
  29.         "you will have to choose that icon BEFORE you run   \n"
  30.         "the installation software. To select an icon please\n"
  31.         "open the \"MWB-Icons\" drawer and doubleklick the    \n"
  32.         "desired icon. It will then appear in the GetVer    \n"
  33.         "window as the program icon.                        \n"
  34.         "If you have not yet chosen an icon but want to     \n"
  35.         "install one, please cancel the installation now and\n"
  36.         "choose an icon.                                    \n"
  37.         "Otherwise continue the installation.               \n"
  38.     )
  39. )
  40.  
  41. (set #where "Where would you like GetVer to be installed?")
  42.  
  43. (set #where_help
  44.     (cat
  45.         "The directory given here is the path where GetVer   \n"
  46.         "and all desired files that come along with the      \n"
  47.         "GetVer package will be installed.                   \n"
  48.         "NO subdirectory will be generated!                  \n"
  49.     )
  50. )
  51.  
  52. (set #copying "\nCopying file(s)...\n")
  53.  
  54. (set #what "What files would you like to have installed additionally?")
  55.  
  56. (set #what_help
  57.     (cat
  58.         "In addition to the program file \"GetVer\" there can  \n"
  59.         "also be installed the program icon, the documen-    \n"
  60.         "tation guide file and the history file. All this    \n"
  61.         "files are not necessarily needed to make GetVer     \n"
  62.         "work. But there are advantages in installing them:  \n"
  63.         "  · GetVer.info     makes workbench start possible; \n"
  64.         "                    is used as the image pattern for\n"
  65.         "                    the appicon; tooltypes are used \n"
  66.         "                    as default setting for GetVer   \n"
  67.         "  · GetVer.guide    documentation guide file        \n"
  68.         "  · GetVer.history  history; may be read from the   \n"
  69.         "                    documentation                   \n"
  70.     )
  71. )
  72.  
  73. (set #catalog "What languages would you like to have installed?")
  74.  
  75. (set #catalog_help
  76.     (cat
  77.         "Herewith you decide what languages the program can  \n"
  78.         "\"speak\".                                            \n"
  79.         "German is the default language. To use it no file   \n"
  80.         "has to be copied. All other languages are available \n"
  81.         "as catalog files which will be copied into the      \n"
  82.         "corresponding path in \"SYS:Locale/Catalogs/\".       \n"
  83.     )
  84. )
  85.  
  86. (if (= @language "deutsch")    (
  87.     
  88.     ; --- German strings ---
  89.     
  90.     (set #badkick
  91.         (cat
  92.             "\n\nGetVer läuft nur unter OS 2.04 oder höher!\n\n"
  93.             "Installation abgebrochen!\n"
  94.         )
  95.     )
  96.     
  97.     (set #introduction
  98.         (cat
  99.             "GetVer 4.00  Copyright © 1992-1995 by J. Schuchardt\n"
  100.             "_____\n\n"
  101.             "GetVer ist SHAREWARE! Wenn Sie es nach einer kurzen \n"
  102.             "Testphase weiterhin benutzen, müssen Sie sich       \n"
  103.             "registrieren lassen. Lesen Sie dazu bitte die       \n"
  104.             "Hinweise in \"GetVer.guide\". Mit der Installation    \n"
  105.             "stimmen Sie den dort genannten Bedingungen zu.      \n"
  106.             "  Danke.                                            \n"
  107.         )
  108.     )
  109.     
  110.     (set #icon_note
  111.         (cat
  112.             "GetVer 4.00  Copyright © 1992-1995 by J. Schuchardt\n"
  113.             "_____\n\n"
  114.             "Hinweis:                                           \n"
  115.             "Wenn Sie eines der MagicWB-Icons installieren      \n"
  116.             "möchten, dann müssen Sie VOR der Installation das  \n"
  117.             "gewünschte Icon auswählen. Öffnen Sie dazu die     \n"
  118.             "Schublade \"MWB-Icons\" und klicken Sie das gewünsch-\n"
  119.             "te Icon doppelt an. Es erscheint daraufhin auch im \n"
  120.             "GetVer-Window als Programmicon.                    \n"
  121.             "Wenn Sie noch kein MagicWB-Icon ausgewählt haben,  \n"
  122.             "aber eines installieren möchten, dann brechen Sie  \n"
  123.             "die Installation jetzt ab und wählen Sie ein Icon. \n"
  124.             "Ansonsten fahren Sie mit der Installation fort.    \n"
  125.         )
  126.     )
  127.     
  128.     (set #where "In welchem Pfad soll GetVer installiert werden?")
  129.     
  130.     (set #where_help
  131.         (cat
  132.             "Das hier angegebene Directory ist das Verzeichnis,  \n"
  133.             "in dem GetVer und alle gewünschten Zusatzdateien    \n"
  134.             "installiert werden.                                 \n"
  135.             "Es wird KEIN Unterverzeichnis erzeugt!              \n"
  136.         )
  137.     )
  138.     
  139.     (set #copying "\nKopiere Datei(en)...\n")
  140.     
  141.     (set #what "Welche Dateien sollen zusätzlich installiert werden?")
  142.     
  143.     (set #what_help
  144.         (cat
  145.             "Neben der Programmdatei \"GetVer\" können wahlweise   \n"
  146.             "auch noch das Programmicon, die Anleitung im Guide- \n"
  147.             "Format und die History-Datei installiert werden. All\n"
  148.             "diese Dateien sind nicht zwingend zum Funktionieren \n"
  149.             "von GetVer erforderlich. Ihre Installation hat aber \n"
  150.             "Vorteile:                                           \n"
  151.             "  · GetVer.info     ermöglicht das Ausführen von der\n"
  152.             "                    Workbench aus; ist Bildvorlage  \n"
  153.             "                    für das AppIcon; Tooltypes      \n"
  154.             "                    dienen als Voreinstellung       \n"
  155.             "  · GetVer.guide    Dokumentation im Guide-Format   \n"
  156.             "  · GetVer.history  Entstehungsgeschichte; kann aus \n"
  157.             "                    der Dokumentation gelesen werden\n"
  158.         )
  159.     )
  160.     
  161.     (set #catalog "Welche Sprachen sollen installiert werden?")
  162.     
  163.     (set #catalog_help
  164.         (cat
  165.             "Hiermit bestimmen Sie, welche der verfügbaren       \n"
  166.             "Sprachen das Programm beherrschen soll.             \n"
  167.             "Deutsch ist die Standardsprache. Hierfür wird kein  \n"
  168.             "File kopiert. Alle anderen Sprachen liegen als      \n"
  169.             "Catalog-Dateien vor, die in das entsprechende Ver-  \n"
  170.             "zeichnis in \"SYS:Locale/Catalogs/\" kopiert werden.  \n"
  171.         )
  172.     )
  173. ))
  174.  
  175. ; --- main installation routine ---
  176.  
  177. (if (< (/ (getversion) 65536) 37)
  178.     (    (message #badkick)
  179.         (exit (quiet))
  180.     )
  181. )
  182.  
  183. (complete 0)
  184.  
  185. (message #introduction)
  186. (message #icon_note)
  187.  
  188. (welcome)
  189.  
  190. (set language 0)
  191. (if (= @language "english")        (set language 1))
  192. (if (= @language "português")    (set language 2))
  193.  
  194. (set @default-dest "")
  195. (set target
  196.     (askdir
  197.         (prompt #where)
  198.         (help   #where_help)
  199.         (default "RAM:")
  200.     )
  201. )
  202. (set @default-dest target)
  203.  
  204. (copyfiles
  205.     (prompt #copying)
  206.     (source "/GetVer")
  207.     (dest target)
  208.     (nogauge)
  209. )
  210.  
  211. (complete 45)
  212.  
  213. (set what_file
  214.     (askoptions
  215.         (prompt #what)
  216.         (help   #what_help)
  217.         (choices
  218.             " GetVer.info"
  219.             " GetVer.guide"
  220.             " GetVer.guide.info"
  221.             " GetVer.history"
  222.             " GetVer.history.info"
  223.         )
  224.         (default 11)
  225.     )
  226. )
  227. (set n 1)
  228. (while (<= n 5)
  229.     (set copy (if (bitand what_file (select n 0 1 2 4 8 16)) n 0))
  230.     (if copy
  231.         (copyfiles
  232.             (prompt #copying)
  233.             (source
  234.                 (select copy
  235.                     ""
  236.                     "/GetVer.info"
  237.                     "GetVer.guide"
  238.                     "GetVer.guide.info"
  239.                     "GetVer.history"
  240.                     "GetVer.history.info"
  241.                 )
  242.             )
  243.             (dest target)
  244.             (files)
  245.             (nogauge)
  246.         )
  247.     )
  248.     (set n (+ n 1))
  249. )
  250.  
  251. (complete 92)
  252.  
  253. (set what_cat
  254.     (askoptions
  255.         (prompt #catalog)
  256.         (help   #catalog_help)
  257.         (choices
  258.             " English"
  259.             " Português"
  260.         )
  261.         (default language)
  262.     )
  263. )
  264. (set n 1)
  265. (while (<= n 2)
  266.     (set copy (if (bitand what_cat (select n 0 1 2)) n 0))
  267.     (if copy
  268.         (copyfiles
  269.             (prompt #copying)
  270.             (source
  271.                 (tackon
  272.                     (select copy
  273.                         ""
  274.                         "/Catalogs/English"
  275.                         "/Catalogs/Português"
  276.                     )
  277.                     "GetVer.catalog"
  278.                 )
  279.             )
  280.             (dest
  281.                 (tackon "SYS:Locale/Catalogs/"
  282.                     (select copy
  283.                         ""
  284.                         "English"
  285.                         "Português"
  286.                     )
  287.                 )
  288.             )
  289.             (files)
  290.             (nogauge)
  291.         )
  292.     )
  293.     (set n (+ n 1))
  294. )
  295.  
  296. (complete 100)
  297.